Generador Marcas/frmPrincipal.frm

   1 VERSION 5.00\r
   2 Begin VB.Form frmMarca \r
   3    Caption         =   "Generador de Marcas para P10XB"\r
   4    ClientHeight    =   5550\r
   5    ClientLeft      =   60\r
   6    ClientTop       =   420\r
   7    ClientWidth     =   5865\r
   8    LinkTopic       =   "Form1"\r
   9    LockControls    =   -1  'True\r
  10    ScaleHeight     =   5550\r
  11    ScaleWidth      =   5865\r
  12    StartUpPosition =   3  'Windows Default\r
  13    Begin VB.TextBox txtProgramaAsociado \r
  14       Height          =   285\r
  15       Left            =   45\r
  16       TabIndex        =   7\r
  17       ToolTipText     =   "Dirección web del programa que puede abrir el archivo"\r
  18       Top             =   2055\r
  19       Width           =   5685\r
  20    End\r
  21    Begin VB.TextBox txtdirWeb \r
  22       Height          =   285\r
  23       Left            =   45\r
  24       TabIndex        =   6\r
  25       ToolTipText     =   "Dirección Web de referencia para el tipo de archivo"\r
  26       Top             =   1740\r
  27       Width           =   5685\r
  28    End\r
  29    Begin VB.TextBox txtPluginAsociado \r
  30       Height          =   285\r
  31       Left            =   45\r
  32       TabIndex        =   5\r
  33       ToolTipText     =   "Plugin ó programa Asociado"\r
  34       Top             =   1425\r
  35       Width           =   5685\r
  36    End\r
  37    Begin VB.TextBox txtExtension \r
  38       Height          =   285\r
  39       Left            =   45\r
  40       TabIndex        =   4\r
  41       ToolTipText     =   "Extensión"\r
  42       Top             =   1110\r
  43       Width           =   5685\r
  44    End\r
  45    Begin VB.TextBox txtdesLarga \r
  46       Height          =   285\r
  47       Left            =   45\r
  48       TabIndex        =   3\r
  49       ToolTipText     =   "Descripción Larga"\r
  50       Top             =   795\r
  51       Width           =   5685\r
  52    End\r
  53    Begin VB.TextBox txtdesCorta \r
  54       Height          =   285\r
  55       Left            =   45\r
  56       TabIndex        =   2\r
  57       ToolTipText     =   "Descripción Corta"\r
  58       Top             =   480\r
  59       Width           =   5685\r
  60    End\r
  61    Begin VB.TextBox txtHex \r
  62       Height          =   285\r
  63       Left            =   3090\r
  64       TabIndex        =   1\r
  65       ToolTipText     =   "Descripción HEX (Soporta RegEx)"\r
  66       Top             =   120\r
  67       Width           =   2640\r
  68    End\r
  69    Begin VB.TextBox txtASCII \r
  70       Height          =   285\r
  71       Left            =   45\r
  72       TabIndex        =   0\r
  73       ToolTipText     =   "Descripción ASCII (Sin RegEx)"\r
  74       Top             =   120\r
  75       Width           =   2640\r
  76    End\r
  77    Begin VB.TextBox txtResultado \r
  78       Height          =   3060\r
  79       Left            =   30\r
  80       Locked          =   -1  'True\r
  81       MultiLine       =   -1  'True\r
  82       TabIndex        =   8\r
  83       Top             =   2385\r
  84       Width           =   5715\r
  85    End\r
  86    Begin VB.Line Line1 \r
  87       X1              =   3030\r
  88       X2              =   2730\r
  89       Y1              =   270\r
  90       Y2              =   270\r
  91    End\r
  92 End\r
  93 Attribute VB_Name = "frmMarca"\r
  94 Attribute VB_GlobalNameSpace = False\r
  95 Attribute VB_Creatable = False\r
  96 Attribute VB_PredeclaredId = True\r
  97 Attribute VB_Exposed = False\r
  98 Option Explicit\r
  99 Private Type tMarca\r
 100     tMarca_Marca As String\r
 101     tMarca_desCorta As String\r
 102     tMarca_desLarga As String\r
 103     tMarca_Extension As String\r
 104     tMarca_PluginAsociado As String\r
 105     tMarca_dirWeb As String\r
 106     tMarca_ProgramaAsociado As String\r
 107 End Type\r
 108 Private Marca As tMarca\r
 109 \r
 110 \r
 111 Private Sub txtASCII_Change()\r
 112 Dim caracteres As String\r
 113 Dim i As Integer\r
 114 Dim buff As String\r
 115 caracteres = txtASCII.Text\r
 116 txtHex.Text = ""\r
 117 For i = 1 To Len(caracteres)\r
 118     buff = buff & Right$("00" & Hex(Asc(Mid(caracteres, i, 1))), 2)\r
 119 Next\r
 120 txtHex.Text = buff\r
 121 End Sub\r
 122 \r
 123 Private Sub txtdesCorta_Change()\r
 124 Marca.tMarca_desCorta = txtdesCorta.Text\r
 125 Generar_Marca\r
 126 End Sub\r
 127 \r
 128 Private Sub txtdesLarga_Change()\r
 129 Marca.tMarca_desLarga = txtdesLarga.Text\r
 130 Generar_Marca\r
 131 End Sub\r
 132 \r
 133 Private Sub txtdirWeb_Change()\r
 134 Marca.tMarca_dirWeb = txtdirWeb.Text\r
 135 Generar_Marca\r
 136 End Sub\r
 137 \r
 138 Private Sub txtExtension_Change()\r
 139 Marca.tMarca_Extension = txtExtension.Text\r
 140 Generar_Marca\r
 141 End Sub\r
 142 \r
 143 Private Sub txtHex_Change()\r
 144 Marca.tMarca_Marca = txtHex.Text\r
 145 Generar_Marca\r
 146 End Sub\r
 147 \r
 148 Private Sub txtPluginAsociado_Change()\r
 149 Marca.tMarca_PluginAsociado = txtPluginAsociado.Text\r
 150 Generar_Marca\r
 151 End Sub\r
 152 \r
 153 Private Sub txtProgramaAsociado_Change()\r
 154 Marca.tMarca_ProgramaAsociado = txtProgramaAsociado.Text\r
 155 Generar_Marca\r
 156 End Sub\r
 157 \r
 158 Private Sub Generar_Marca()\r
 159 Dim buff As String\r
 160 buff = "[" & Marca.tMarca_Marca & "]" & vbNewLine\r
 161 buff = buff & "desCorta=" & Marca.tMarca_desCorta & vbNewLine\r
 162 buff = buff & "desLarga=" & Marca.tMarca_desLarga & vbNewLine\r
 163 buff = buff & "Extension=" & Marca.tMarca_Extension & vbNewLine\r
 164 buff = buff & "PluginAsociado=" & Marca.tMarca_PluginAsociado & vbNewLine\r
 165 buff = buff & "dirWeb=" & Marca.tMarca_dirWeb & vbNewLine\r
 166 buff = buff & "ProgamaAsociado=" & Marca.tMarca_ProgramaAsociado & vbNewLine\r
 167 txtResultado.Text = buff\r
 168 End Sub\r